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IL- BLUCUBRATIONS POUR 3 VOIX ET TRIANGLE 


ESSAI DE RECONSTITUTION JE L'AMBIANCE SONORE DES CHANTS DE 
PRIERS TIBETAINS, 


19 — AVANT-PROPOS: 


On sait aujeurd'hui que le sen est une vibration qui peut 
perturber ou renforcer l'équilibre biopsychique. 


Dens l'hindeuïsme, le sen est considéró comme une thérapie 
très efficace. | 


C*est 1e "Mantra Ylega". 


Par certaines psalmedies particuliéres et précisos on fait 
agir la puissance et la magie du son. 


EXEMPLE : Les structures sonores des chants de prière des 
moines tibétains. 


| Peur Jean HIBERT " l'importance actuelle du Mantra provient 
de sa récitation psalmodiée qki est réputée avoir un pouvoir 
considérable non seulement dans la pratique spirituelle mais 
dans tous les demaines de la vie? 
( L'hindouisme vivant Cel." Aur erigines du Sacré" 
Bdit. R LAFFOND ) 


" L'emploi du Mantra n'est qu'une utilisation consciente de cette 
puissance secrète du verbe”, 


(Extrait d'article de l'Incennu N° 2 Janvier 76 ) 


29 HETICACITE PHERAPEUTIQUE DES VOYELLES DU MANTRA 


A Agit sur la partie supérieure des poumons et 


gur le cerveau. 

Sen serein que l'on retreuve seuvent dans le 
chant grégerien. 

Il est sensé éveiller l'âme, la libérer de ses 
contingences matérielles. 


E Agit sur la gorge, les cordes vocales et les 
glandes thyreidiennes qu'il tonifie. 
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OÙ = Agit sur tous les organes abdominaux, 
Il régularise le travail des intestins 
et peut aider á se débarasser de la 
constipation, 


0 = Son grave profond, fait vibrer toute la 
cage thoracique et stimule les poumons, 
Son effet se propage aussi sur les 
glandes génitales, Il amène le calme 
intérieur, une concentration accrue et 
dynamise l'être. 


OM = Considéré comme le son cosmique, 
Il vide le mental de son trop plein 
d'images incontrolées car il occupe 
entièrement le champ de notre conscience, 


I | => C'est un son joyeux lumineux qui agit sun 
| le nez et la gorge et les bronches. 
11 a le don de mettre de bonne humeur. 


3? IDEES ET DESCRIPTION DU PROGRAMME (ALGOL 6600) 


Suite å ces propos, j'ai projeté au moyen des voyelles 
employées dans le Mantra yoga de reconstituer l'ambiance Sonore 
des chants de priéres tibétains. 

LES VOYELLES : [A E ou 0 om 1) 

J'appelle cet ensemble MANTRA, je range ces éléments dans 
un tableau de 1 à 6 et je lui donne le nom de l'ensemble : 

done : | 

Ensemble des voyelles 
MANTRA 2 ΤΑ, E, ου, ο, OM, IJ 


J'appelle unité sonore un élément de l'ensemble MANTRA 
donc : 


Unité sonore = MANTRA (I) 


JE DENOMBRE L'ENSEMBLE DES COMBINAISONS possibles des 
éléments d'un ensemble ; 


je génére l'ensemble des permutations d'un groupe qui est 
égal : 
si n - le nombre d'éléments 
factorielle den ( n!) 720 pour n = 6 


La permutation de référence (identité) est le MANTRA dans 
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l'ordre qui est défini au départ : 
A, E, OU, O, OM, I. 


Par le truchement d'un sous-programme générant l'ensemble 
des permutations des éléments d'un groupe, un générateur de 
permutation fera le travail. 


Je stocke cet ensemble de permutations dans un tableau 
linéaire (les uns derrières les autres) que je nomme TPERMUT 


Ens. des Permutations =D  TPERMUT (1... 720) 
du groupe MANTRA 


Actuellement j'ai donc un ensemble d'unités sonores range 
dans TPERMUT. 


Je veux maintenant affecter un facteur de répétition 
variable à chacune des unités sonores, 

Je vais prendre l'image d'une permutation (suite de 6 
unités sonores) engendrée par le générateur dans la suite 
des permutations ; car " la procódure " génération de permuta- 
tions employée ici est un générateur dit de Jhonson dont l'une 
des particularités est qu'il permet d'avoir toujours la même 
unité sonore qui se déplace de droite à gauche puis de gauche 


` 


à droite. 


En prenant l'image, j'aurai une durée constante qui se 
déplacera suivant les mêmes règles appliquées aux unités sonores 
différentes, et je rangerai les images des permutations les 
unes derrière les autres que je nomme TDURE dans un tableau 
linéaire, 

donc : 8 

[Suite des permutations inversées 
de TPERMUT (qui est lui-même l'ensem- TDURE (1.... 720) 
ble des permutations de MANTRA] 


Mais je ne considère plus les éléments de TDURE comme 
des unités sonores mais comme des facteurs de ré étition. 


თ ፻፪8ጠ2ፅ L LI 2 13 To Ds] e| 7] 819 [10] τι] 12 


miroir 4 
we 2 [፡1፡1፡1፤1፡1፡1፡1፡1፡ሻሻ፤1፣- 


ል chaque élément de TPERMUT 16 1818 correspondre un élément 
de TDURE 
donc 


permutation 


[: 2 3 እ 5 6 7 r TPERMUT en regardant pour TPERMUT 


de gauche á droite tan= 
dis que pour TDURE de 
6 5 4 3 2 1 12 TDURE droite à gauche 
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Séquence (restreinte pour cet exemple) 


1111112222233334 hu 5 5 6 ........ 


donc l'unité sonore 1 de l'exemple a une durée de 6, 
on la répètera 6 fois. 


Cette procédure engendre une nouvelle suite que j'intitule 


SEQUENCE, 


Elle comprend 21 éléments identiques ou différents suivant 
le facteur de répétition TDURE et qui porte le nom SEQ。 dans le 
programme, 

Je crée 3 séquences (autant que d'exécutants). 


SEQ 1 ----- + VOIX 1 
SEQ 2 ------ ኀ VOIX 2 
SEQ う መመመ መመ > VOIX 3 


Si je regarde les tableaux SEQ, 11 y a des changements 
d'unités sonores; à chaque changement გა ხამი თს BANE fera sonner 
un triangle 

donc 


pour chacun des exécutants il faut wn tableau de la pnésence 
ou non du triangle. 


Tableaux binaires des 
rythmes (triangle) ` RITH 1, RITH 2, RITH 3 


Si Í alors triangle, sínen rien. 
Les tableaux RITH auront autant d'éléments que de structures 
sonores dans les tableaux SEQ. 


J'utilise un générateur de nombres aléatoires (tirés au 
hasard entre 1 et 6 ). 


Je déterminerai à l'éxécution la valeur réelle de temps de 
la totalité de la séquence. Je pense à priori sectionner ehaque 
Séquence (21 éléments) en période de 3, représentant dans le 
temps le plus petite capacité thoracique des exécutants. 


Maintenant je génére l'impression d'une partition. 
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2 I Ημ 


í ICI=600 
ICI=POINT DE REFAIRE DANS LE BAILLAIGE DE ÎPER 
VVV=L EXECUTANT FAIT SONNER UN TRIANGLE 
តប 4: qt # 43 ++ % ጎኑ ጎተ ἃ 8 pee mua] WEN 


FORCEs 1 e 3 4 5 6 TRIANGLE 


VVV 
I 
VVV 
L 
VVV 


T 685 


1 I 
I 1 
I I 
I I 
I I 
I 1 
L I 
coU 1 I 
I 1 
1 1 
፲ 1 
1 1 
OM I 
I I 
1 I 1 
1I I 
I I 
I I 
ნ I 
1 I 
I I 
1 OU 1 
I I 
OU I 
1 I 
I I 
I I 
I 


1 I 
1 I 
C I 
Í I 
A I 
I I 
I I 
1 I 
1 I 
Ü I 
I I 
1 I 
1 I 
1 I 
1 I 
I I 
1 I 
1 1 
I I 
1 1 
1 1 
1 1 
1 I 
1 | I 
I 1 
A I 
A I 
1 1 I 
I I I 
1 I [ 
1 I I 
I I 
1 I 


i 
I 
1 
1 
1 
1 
I 
1 
I 
I 
1 
1 
j 
1 
i 
1 
I 
L 
I 
1 
I 
1 
1 
1 
1 
I 
I 
1 
ტ 1 
1 í 
I 1 
0 L 
I 1 


L 
1 
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TRIANGLE 


ፋኑ ቀቅ 4 ა ፋኑ ፋኑ ፋኑ T 8 db ሙዙ 549442 


SON NER UN 


—  - — - 


VVV=L EXECUTANT F 
F KT dh $t ++ 4 Š? “ο 


| FORCES i 


— 


Ὁ TRIMNOLE 


ら 
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> > 
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E. 
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ዮ-ቂ — — — ፦ላ — យ ፦ዳዓ — - 53 = — — ፦ሄ a ኤማ ሥቂ 
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LX TES SES TFS វ» 4 4 σσ συν 


ፍ፣ፍኅ”ሣርኑፎ! 


eii — — — — — — መ — — — — — — — — — — » + ፦ቄ ጮቄ + 


b 


— ას — — — »- — — 


m dion. NÉE ጐሣ - — -4 — — 


v V V 
VVV 
VVV 
VVV 
ሃሃ ሃ 


ა <Í v » መብ に 4 » »- — 


» 4 --ᾱ — — — — — — — — — — — — — < — “-ቄ “ቄ — ა — né — νι ὃν 
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— _ იიი. 


* 


et 4 :2ኃ +q q »-ν- — — — — 


= 


ლ ሩዳ —q “ዳ —q “1. —4 መቂ — — — 


= 


«ა -ቄ ሥቄ — ጋ — » — — መ ና "4 


> 
ነ=ዳ 4 — — 4 4 -ቄ — > と 4 — こう 


— -- — — — — — — — ኤስ — 
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6 TRIANGLE 


5 


ecesecenon (VQ IX 
e ! 


FORCER] 


ሃ ሃ ህ 
ሃ ሃ ህ 
ሃሃ ህ 


> 
> 
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v V v 
VVV 
ሃ ሃ ህ 


pt 
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Quelques précisions sur le probléme "spacio-temporel" 


Les partitions pour chaque voix sont constituées de 21 unités 
sonores que j'ai intitulées SEQUENCE, mais en fait il faut 
ajouter aux unités sonores l'instant nécessaire pour faire 
résonner le triangle, action que je désirerais franche de telle 
sorte que le son se propage longtemps et se mèle aux autres 
effets sonores, 


donc 


Je considórerai l'espace temps triangle égal aux 
autres unités de temps toutes égales, 


Le départ du jeu étant donné par le triangle respectif de 
chaque voix simultanée 


donc 
UT ጭማ unité de 2 quelque soit l'unite > elle a une zB cette durée est 
temps sonore de Mantra égale dunée égale à 1'espace 
temps de jeu du 
triangle 


Cette UT sera fonction des exécutants, je mesurerai 
le temps d'expiration totale des chanteurs et me 
réfèrerai sur le plus petit relevé que je diviserai 
en 3 (ce qui constitue l'UT de référence), 
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II- MARTRA DANSE 
SUITE POUR TROIS DANSEURS REGIS PaR DES LOIS 


DE L'ENVIRONNEMENT SONORE 


Comme je l'ai céjà formulé dans la première partie 

" Elucubrations pour 3 voix et triangle ", je voudrai 
essayer de supprimer le côté rébarbatif de l'écoute 
exclusive de " Suite cognitive d'éléments ou d'ensemble 
d'éléments variables sonores " en apportant une 
réalité visuelle. 

Soit une association, générations, sons, couleurs, 

ou cinétique d'objets gérée par l'univers sonore 

créé ou enccre comme dans le cas présent en utilisant 
des danseurs gérés associativement avec le monde 
sonore engendré. 


Dans ce cas l'univers sonore va générer également les 
déplacements dans un espace scénique et aussi nous 
guider sur 1a signification du monde gestuel engendré 
par les danseurs., 


Le but étant d'associer á chaque structure sonore un 
attribut gestuel, L'enechainement des unités sonores 
créra un climat que l'on retrouvera suggeré par 
l'attitude des danseurs. 


En aucun cas je veux remplacer la créativité de 
l'individu, au contraire c'est dans cette optique 

que je me bornerai à indiquer une idée, une "atmosphère" 
associée à chaque unité sonore et à régler uniquement 
l'aspect géométrique du déplacement. 
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DESCRIPTION DU PROGRAMME ET UTILISATION DES RESULTATS, 


Ce que je posséde déjà dans le programme musique : 


SEQ ጫቅ] Suite des 21 unités sonores] 


ALEA une procédure donnsmtà chaque unité sonore une forcd 
de jeu aléatoire 


Ce sont les seuls renseignements dont j'aurai besoin pour 
régler les déplacements. 


Un espace scénique dans lequel 16 ferai évoluer 
3 danseurs (autant que d'exécutants). 


est associé 


DES 1, SEQ 2, SEQ 3 < respectivement = DANS 1, DANS 2, DASS 3 
— — — — 


3 exécutants | 3 danseurs 


Je le considère comme une matrice binaire dans laquelle 
ასა“ 2 9 ቃ 

O représente le vide (non présence de danseur) 
*1"Présence de danseur (sa place) 


ESPACE ( /H . 0 /) >) espace scénique total 
L L LLL 


P PA 


ሥ 
Z 
Ζ 


PUBLIC On pourra représenter cette figure 
sur le plateau de façen à 


permettre une meilleure mémorisation 
du danseur. 


TABLEAUX DANS (I) 


DANS 1, DANS 2, DANS 3 sont des tableaux constitués de 


doublets dans lesquels le 16 élément représente 
l'unité sonore et le 2è la force de jeu de cet élément. 


Donc la longueur de ces tableaux est le double de SEQ 


i c'est-à-dire 42 éléments. 
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ESPACE 


est le nom de la représentation de la situation 
topologique d'un danseur à un instant. 

Elle est générée par l'analyse successive d'un des 
doublets de l'un des tableaux DANS (I) 


Le 1 er élément génère la colonne (unité soncre) 
le 26 - " " la ligne (force) 


Plus l'unité sonore est ferte plus le danseur se 
rapproche du public, il change de colonne lorsque l'unité 
sonore est différente. 


Si une suite de Goub1ets possède la même unité sonore 
mais des forces différentes, ces forces feront descendre 
ou monter vers le fond de la scéne (de façon À suivre 
l'effet modulatoire de l'unité sonore) 


Si deux doublets sont d'unité sonore différente, nous 
avons vu qu'il y a un espace temps pour faire sonner le 
triangle qui donnera au danseur le temps pour effectuer son 
changement de colonne 


Pour chaque danseur je genère une représentation 
géométrique de son déplacement, autant que d'unités 
sonores dans SEQ (I) où pour une meilleure visualisation 
ses nouvelles coordonnées sont indiquées par le chiffre 2 


zFORCE 
«0==0==0 ence 0 == 1 
=0 መመ 0መ=በ0 “=020መ= 0 == i መጋ 
=0==0==0==0==0==0==3 
መዕ == 0“=0፡ወ= 0=መወ=0መመበ0 ወመሩ 
こ 0==0= こ 0 ここ 0 ここ 0 ここ 0 こ こら 
=0==0==0==0==0==0==6 

FACE ልህ PUBLIC 
1 ご = の ーー うこ ご 4 ここ 5ー こ 6csUNITES SONORES 
-AT-ET--0U-0--OM-I-sELEMENTS DE MANTRA 
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CONFIGURATIONS DES DÉPLACEMENTS SCENIQUE DANSEUR, 559854 


0 [ደል] 0 0 ο ο 

0 0 0 0 0 0 

0 o 0 0 0 O 

0 0 0 0 0 0 

0 0 0 0 0 0 

0 0 0 0 0 OANCIENNES POSITIONS SUIVIT DE LA NOUVELLE POSITION 
**UNITE SONORE= ]"**FORCEx 2 

ll 0 0 0 0 DANS L ESPACE SCENIQUE2sSITUAT ብ 
0 0 0 0 0 ο zt ATION DE LA NOUVELLE ρος]τ]ρν 
0.0 0 0 0 O 

0 0 0 0 0 O 

0 0 0 0 0 0 

0 0 0 0 0 OANCIENNES POSITIONS SUIVIT DE LA NOUVELLE PUSITION 
**UNITE SONORE= 1###FORCES= 1 

N, 0 0 0 O 

0 0 ο ο ο 

0 oel2} ο o ο 

0 0 0 0 0 0 

0 0 0 0 0 O 

0 0 0 0 0 OANCIENNES POSITIONS SUIVIT DE LA NOUVELLE POSITION 
**UNITE SONORES 3%*%FORÇCEm= 3 

1 1 გრ 0 0 

0 ο 0/0 ο ο 

9 ο 0 ο ο 

0 0 0 ο ο ο 

0 ο 0 ο ο O | | 

0 ο 0 0 0 OANCIENNES POSITIONS SUIVIT DE LA NOUVELLE POSITION 
*#UNITE SONORE= 1**«FORCEm 4 | | 

1 1 0 იწ 0 

0 0 0 0\0 ο 

0 0 1 040 0 

0 0 0 0 [፪ 0 

0 0 ዐ 0 0 O 

0 0 0 0 0 OANCIENNES POSITIONS SUIVIT ሀዩ LA NOUVELLE POSITION 
**UNITE SONOREs 4!*%#FORÇCE= 5 


M&intenant chaque danseur posséde une représentation de 
la place qu'il doit avoir à chacun des changements de 
force dans une unité sonore ou pour chaque unité sonore 
différente. 


11 ne reste qu'à indiquer la signification de son 
mouvement pour chaque place (instant). 


On a vu que dans ESPACE il y a 6 colonnes représentant 
chacune une unité sonore du MANTRA 


donc : 
1 2 3 4 5 6 
i + $ + ἡ + 
Á E OU 0 CM I 
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Dans quelques lignes précedement (1ë partie) j'ai 
essayé de préciser l'effet de ces sons thérapeutiques 
sur l'individu. 


J'ai voulu créer une continuité des effets sonores dans 
les mouvements des danseurs, 
J'ai associé à chaque unité sonore un "esprit gestuel", 


Unité sonore Correspondance danse 
À — Il doit se dégager un esprit de libération 
E መሙ une impression d'activité 
OU መሙ Une forme de sensualité 
O መሙ légèreté du style (sauts) 
OM — | ーー sensation d'équilibre, sérénité 
I መመ une grande gaité 


Pour chaque correspondance le danseur devra trouver des 
degrés (6 degrés). Le paroxisme devant être atteint pour la 
force 6 (positien la plus proche du public ). Si la ferce dimimme 
le danseur va vers le fond de la scène en descendant dans les 

degrés de 1! "esprit gestuel", 


4— 


————— — 
Degré d!intensité 


"ME 
| ーー correspondant à la force 


d 
2 
— — 2 
4 
5 
—P@T 4Fsrce 6 


PUBLIC 


Chaque "Pas" d'un degré d'une unité sonore et pour toutes 
les unités sonores devrait s'il se répète au long de SEQ. 
être toujours le même, l'unité sonore ne changeant pas 
elle-même de structure, 


Chaque danseur étant par définition entièrement libre de trouver 
son vocabulaire, aucune voix étant identique et associant à chaque 
voix un danseur il serait absurde d'uniformiser le vocabulaire, 

Ceci laisse malgré tout un champ vaste pour la création individuelle, 
J'espére seulement que les danseurs et les chanteurs soient les 
mëmes personnes de telle sorte que leurs timbres soient associés à 


leur vocabulaire d'expression corporelle pour une meilleure 
homogénéité. | 
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Z O == C C2 Ç m 


ዮሓ 
“ያ 


-2ል-- 


1ANCIENNES POSITIONS 


ες 1"##FORCES 5 


CD »ឈ < 


1ANCIENNES POSITIO(S 
&*#*FORCE= 1 


ህ 
ሀ 
ቦ 
1 


ህ 
lANCIENNES POSITIONS 


NOREz S**s*FORCcCm 1 


lANCIENNES POSITIONS 


NORE= 6*"*"FORCEs 1 
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SUIVIT 


SUIVIT 


SUIVIT 


SUIVIT 


SUIVIT 


SUIVIT 


DE 


DE 


UE 


LE 


DE 


DE 


LA 


L.A 


LA 


ፌል 


LA 


L.A 


NOUVELLE PUSITIGN 


NOUVELLE POSITION 


NOUVELLE POSITION 


NOUVELLE POSITION 


NOUVELLE POSITION 


NOUVELLE POSITION 


ន" T 
ALGOL=60 VERSION 4.1 LEVEL 0004 


まじ BEGTN デ 
#ር OMME N T Á 4828 ዙዙ AE 8 ተተ AF μμ 8 ኩቱ 0 BÈ H ο 


ዐዬርቴልሾል | 19! 
+ 4b dp 48 კჯ Ἡ Ὁ 4E 96 4 δ ὁ} # ὅς $? 4 45 + 46 ት 4t 46 % «ს th « ა 49 45 ჰა tb 2 δε δὲ 4 48 4. 45 ὃς db ას $$ ჰყ 06 46 49 პნ qp Ὁ ὁ} tb 48 49 45 46 tt 49 0 90 49 48 


1 

2 

3 

4 

5 .9 

6 ZCOMMENT Es tr] IEU DE RLNGEMENT DES νι ας Εμμ μυς πα 

7 SIN TFOER#NGPER, 5 

8 INTEFEGER ば FURCEZ 。$ 

9 ま J(、TEGER そ CT。5 

10 £liuTEGERZFORCE,, 

11 ZINTEGERZAL sUUkE . + 

12 FINTEGERFBUITESCOMPT e 9 

13 € COMME INT 9 3*3 4 4 EP EIFE μα 4 +«+ ቁፋ 4 ቱፋ ቁ ቁ ተ ጉ bOlNTEUR DE LISTES 

14 *INTEGERxC,» 

15 INTEGER(U.» 

16 ZIISTEGERZK Les 

17 ZINTEGERZNS ledes 

18 ££ INTEGEREE O H, 5 

19 ZCOMMENT £ 49 48 te St de en 3t at de % 4» 4 4 +] እእ E AU ss MM 949 
0 ÉINTEGERFFARRAYÉTRANS (/1004380/) εν 


1 ZINTEGERZÆZARRAYZPERMUT (/14,,ሮ/) ቁ 
22 ZINTEGERZZARRÅYZTPER(/ 10643971 so 
23 #1 「EGE ド まま ARRAY を TDURE(/1。。432n/) as 
24 *1NTEGERÉ*ARRAY*SEQ1 71... 21^) , በ 
25 ま INTEGER ま ま ARRAY ま SEQ0 ど (/ ま よ 。。 と は /) αφ. 
26 *INTEGEREZARRAYzSEuJ(/1.,21/),, 

27 ま TMTEGER を まま ARRAY ま RITH1 (/1。。/ 1/) ο 


28 #1 ' ፕድ0ክ" ሄል “PAY sr IT Ha (/1e021/1e 
29 ÉINTEGERFFÉARRAYÉRITH3(/1,,21/) 


30 , ”ፐ ሇ ክቁቄ፡፡።፡ , 

31 まそ TNMTEGER ま そま ARRAY ま DANS ど (/]。 6 5%2/)., 

32 #I TEFGER を まそ ARRAY ま DAIS3(/1。。4Z/) 55 

33 ま INTEGER デ チチ ARRAY デ ESPACE【/1 。。69 1 。。6/) , 

34 生か か りか で サル ペタ の か 
35 INITIALISATION 

36 4 M 4» 4e 4 10 Ὁ 0 δ Ὁ 49 Ὁ 4€ 36 δ Ὁ 4 49 49 ἡ Ὁ 4 40 49 Ὁ 40 29 30 46 A 46 4 40 4 40 4 0 46 4 4 d δ 49 Ὁ 4 4 5 Ὁ 8 8 δ Ὁ 0 49 0 δ 0 δ 0 99 
37 e? 

38 AL 2.2! 99, 

39 Ne ο6 ο} 

40 ህ96=()65ፃ 

41 COMPT ee =Z” + + 

42 ፆር OMME IN T F აიიეუდეუეუე_-დადდდდდდდდდდდ 
43 LECTURE LES DUNNEES 

ፋፋ ENSEMBLES DES VOYELLES DE MANTRA 

45 Ae di tp dp dp th dh dh d  % 4 % AR % 49 4 db 39 4 4 ብ 4 % 48 ዙ + ង E # X 4 4 6 4 4 % 4 4, % 4, 36 % EAE % ME EAE ት კვ კს + e P 4 ៤ 
ሬይ cj 

47 1 4ARRAY (Sc ,PERMUT) os 

48 COMMEN Í X ett ተት 49 48 dp de 4 dd ah dt 48 ዝብ AE At E AH Gh At GE AE Ah due dr sh 4 AP O AE AE AP Ae Gh IE ἐσ 4 88 dh 4 A 
49 GENERATION DE L ENSEMBLE DES PERMUTATIONS DU GROUF 
50 MANTRA 

51 4 ፡ ას 4 ብ # 4 t «ს 45 ጉ M 49 ቂቅ ጉ 49 49 4 49 ብ + ብቅ ἢ ძა ተ + 4L St 4 49 46 4 ጉዙ ብቭ ፋቶ Ὁ 4 4 ዙ ብ ቁ) ብ ተ δὲ Βα ጉ Ὁ ΔΒ 15 δ კჯ Ὁ კს # პს «ა a 
52 គី 

93 RETOURDe 。 

54 COMPT 。。= ミ COMPT+1 ど 。$ 

55 #FOR# Ieezi #STEP# 1 まそ UNTTIL そ Ne1 #00% 

56 x—EGINM- 

57 BOITE,,.zPERMUT(/I/) os 

56 PERMUT (/I/) «ez "ERMUT (/I*1/) 。 6 

59 PERMUT(/I+1/) e #BOITE, 
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100 
101 
loc 
103 
104 
105 
106 
1ი7 
108 
109 
11ი 
111 
112 
113 
114 
115 
116 
117 
118 
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VERSION 401 Ἢ LEVEL 0004 KAALUL | ( 


FORK  Z1zSTEPz [ህከ IL #//ሦ፡(00# 
*BEGINEJe«2)*]»* PER(/ZJ/) +, SEERMUT(/NZ) e e Eisen 
END そ 。 6 
1 აი=)195% 
ου Ι ΤΕ se , =? "1 (/1+1/), 4 
PERMUT(/1«]1/ ) , ,FPERMUT (7/17) ἐν 
PERMUT (/1/) ዓዳኢጻ=ክሀህ11ር5595 
FoRsK«esleSTEPaisUNTIL2NxUGOS 
«Br GINEJ..2J*1.» TPER(/J/) +, ,8PERMUT (/ሾ/) . ፅጅር ከ ህ#ሩፅ 
ZFURZI&..«zNzSTEPx-i£zUNTILZ?OZUO£Z 
seoEGIiz 
BUITE。。gPERUT (/1/) es 
PERMUT (ሥ፲/)5464=ኮዩዩክ ር ,ህፐ (/ ፲መ]1/) os 
PERMUT (/1መ1/)5#959=5ህ11፻,5 
#FORzK 6ο oslæSTEP #1 #uNTILZNÆLOŽ 
#8EGIN€JoosJtl sTPER(/J/) 。。 モ PERMUT (/K ノ ) „9#%CIII/#§§ 
*l D» | ーー 
[ὁ ος ο 9 
BUITE se =PERMUT (/IM/) ο 
PERMUT (/IM/) eesÞERMUT (/ክ= Z) ο 
PERMUT (/N/) e osbOlTE es 
#FOR#4 ο επ) STEP) #ህከክ] 11. #2”#ህህ። | 
BEGIN 9 οοΞ 919) TPERI/ JA κα ,SPERMUT (/K/) , «Ἐξ 8 v 
ま 1F ま COMPT ま し LESS を 72 THEN テ ま GUTO ま RE TUURD, + | | 
OUTPUT (6192 (#/+#(#TPLR=TABLEËEAU UE TOUTES LES PERMUTATION D UNE STRUCTURE 
SONORE DE 6 ELE EFT9z#2)#z#)#) o, | ー 
OUTPUT (61** (*72.(/*35B8*]U*206*]D0*20» ]Us2d* 1Üv2B* ]Os 269 ]D) X) Y TPEK) 6 
OUTPUT (6197 (ff (Hatt IN DE TPEHse*z)3É£)z).. | ! 
FCOMMENT E 4h 48 08 dt % % % + 48 db ង » 4 AE » h Ah E GE GH AP 98 6 45 EE %% 999. 4 4 2 # 4 % 49 4 ትብ ቨን 5 % 4 4 % 4 ትቭ ዙ E ៤ 4 
TUURE=SU1 TE "ES PERMUTATIONS LNVERSES UE TPER QUI EST LUI 
MEME し ENSEMBLE DES PERMUTATIONS UU GROUPE MANTRA | 
MAIS ህር NE CONSIDERE PLUS LES ELEMENTS UE TOURE COMME 
DES UNITES SONORES MAIS CUMME ÞES FACTEURS DE REPETITIONS 
ASSOCIES A CHACUN DES ELEMENTS UE TPER 
de dt e de ap M 48 4 4 # tt de de + de «ბ + + 4 4 % 47 % + 4 % «გ 98 % 34 41 ძნ de 48 + 4 4 + X 8 48 4 IP 4, St 4 % dh # 4 4% ៤4 # # « ሹሽ ა Ah 8 #9 + 4 ΦΥ 4 044 


ο) 
ΝθρΕΒιοΞθοφώοοΣ 9 Ioez(.* 
RTLURE 5 5 
፲5,:=1ቀ(39 Joe #9=./ቃቀ.,59 
TDURE (/ህ/)ሬ48=መፐዮኮርክ (/1/)55 
156:=[”ሙ196 Jo 9=ኒ;)›ቀ κα ϱ 
TOURE (7/7J/) eo esTPER (/1/1)5ፃ 
ია ολ les JeezU*i, 
TDURE (/J/)sesTHER(/1/) ey 
፲5,:51መሙ1 56 9./, 9 =2,ህፉ1,.5 
TOURE (/J/) 。。=ETPER(/1/)。? 
፲፡951መ1 5 5./, 9 
TDURE(/J/) , »STPEK(/I/0»09 
1፲5520=51”ሙ] 5 945 οΞι}9 οφ 
TOURE (/J/) 。。=ETPER(/1/) 。6 
NEPERe ა #NBPER*+1,. 
Loe=tiIBPER#6, 9 
RIFALANOTEUUT LÆS o eO Z THENZAGOTUARTUURE 。 + | 
OUTPUT (61:#(#%ა§#(#ჯი CHAQUE SON p Ung STRUCTURE EST ASSOcIE UNE FONCTION 
UE REPETITION D UNE VALEUR DE 1 A o Κωδ LE MEME SON #)##)#),0 
OUTPUT (Ól s (#70. (/ 13589109 28109289 10 2, lU 269109 26,5 10) 8) #9 TDURE) o, 
OUTPUT (Cl ot (#ቐ (#*##%*#F IN DE TOUREZ)Z2#)2), 9 
#C0MMLIII attt AE ERE EIE IEEE AE dH AP 48 RN 
CREATlUIN DES SEQ UE 21 ELEMENTS IUENTIUUES ህህ UIFFERENTS SUIVANT 
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VEPSION 451 LEVEL 0004 XXALGUL 


FACTEURS DE REPETITIONS SEQ1 SENZ SEQ3 CORRESPUNUANT ል 
VOIX1 VOIX2 VOIX3 | 
+ % 44 4 + 49 # de ተ + 4 + 4 % 41 +% « IP V 49 «ს IP «ს «ი 4 4 «. დ აა 46 Eh X «ს ბნ კს M Σπ ο კს MX de tb 4 ს «4 დ db დ JE 21% 5 JE #6 52 94 ην 
e? m 
Wa, ze3Cl, sg 
leez es’ 
Jee? et ፪ 
#ნ 0ሻዳጻቓህዩፅሪፅ=1#:21ኪፒዞ፣ . ,.ህ/4 1 ኾ#፡1#ሠ0# 

vtEGinæ 

WeezWTles. 

CoonConlos=i+l,os 


SEGI (/J/) 。。=TPER(/1/) 。 5 


RET1,..sCeeZC*lesSEUL (/J/) 。。=TPER(/1/) »» Jee=dties 
*IF* TUURE (/w/) ÉGREATERÉC *THEN* *GUOTO* ዞርፐጌ›፡ 
J。。 ミ J"1。$ 

FENDE.» 


OUTPUT (Ól ,%=(#*,»(#%%%»»%%%២( រន) #*)») 。。 
QUTPUT (616 ま ( ま ど 1 (CB。1U) そ ) そ 5SEQ1) ο 
OUTPUT (O1 5? まそ (まま ( デ せ せみ FIN VE SEQZ) ZR) 2) ο 
Κος ο, 
#FORZKe e Z1zZSTEP#1#UNTIL#21#002 
#bEGINZ 

V ი ა=V<10% 

ο ως αλ 

១៩។2 (/ዞ/).፣4።።ፐኮጄኮ(/1/) 54 | 
RET2.« Cos=Ctle? SEQR(/K/)e.z=TPER(/1/),9 KoezKél.? 
#IF# TOURE(/W/) #GREATERzC ÉTHENX #GOTO# RET ど 。6 — | | 
K 。。 ュ ミ Kー1。6 

ἘΕΝΌ 8 ο 9 
OUTPUT (61»* (#//// vt (FtnaetsEg“g) #8) 8) ον 
OUTPUT (61 o#(#21 (2B8,1U)#) #,SE02) > 
OUTPUT (612 (## (#*##F IN DE SEQ#)##)#) 45 
!ር968=19ፃ 
sFoRsLeezslaSTEPal2UNTIL«21a002 

まけ DEG ょ AN そ 

We 。 ら リー1。$ 

549505816,5101695 

55 8” (/L/) 。。 ミ TPER(/1/) ፅ 


RETS.e C.» ο 9 SEQ3(/L/) s zTPER(/1/⁄/) os し ゃ ゃ だ し ?1。$ 
#IF# TOURE(/w/)  #ዕሾኮ፻ጀል!ዩክጾ#ር ま THE い ま #GUTO# RET3,., 
Le ο 1ο) 

#ËENDZ e; 


QUTPUT (6192 (2//// #(9#9M#5ნ03=#)#%)%)ია; 
OUTPUT (614# (#21 (2B,10)#)#,5EQ3) 。 6 
OUTPUT (612 (まま (#w#*F1N DE SEU#)##)4#) ο | 
*CoMMENT ai 48 6 + % + # % % FE 4 # # # 30 dE dt # # 49 4 # # % ៤ 4 4 4 # # AE % # 6 68489 # « 4» # # + + + ' 


HEMPLISSAGE DE RITH -BINAIRE- DE LA PRESENCE DE 
RITHME DANS LA SEQUENCE =1=V = ÜzF- --ASSOCIE A SEQUENCE 
SI RITH: RITH RITH3 SONT VRAIENT ALORS し EXECUTANT FAIT 
RAISONNER LE TRIANGLE 
ស្យា. 
19 a zmjJe e «ΞΚο 5” ο) 
#FOR#J 。 モ 1 を STEP ま 1 ま UNT 1 し まとまり 0 ォ 
zBEGINZ | 
#X#I” #50 (/J/) ま NUTEQUAL ま SEM1(/J*1/) チ THE」、 ょ RTTH1(/J ゃ 1/) 。。=1 ま ELSE ォ テ 
RITH]1(/Jd+1/)00=00e9 
BENDT. 
ህሠሬሬመ1998፡1ፐ፡3 (/ህ/) vezl es 
OUTPUT (61»€(/////,*(* TABLEAU DES RITHMES ASSOCIES ^ LA 5Εῶ14) Κα κ) ο > 
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VERSION 4.41 LEVEL 0004 XKALGUL 


OUTPUT (61, s*(s21(289*10) κ) es RITH1)., 
OUTPUT (612 (まま (ませ HF IN ሀር RITHIÉ)*£)*2.. 
#FOR£#K oo  £#g1z2STEP#1zuNI11Lz21206U02 

xBEGINz 
IF*SEQO (/K/) € NOTEQuUALXSEQ/ (/8#1/) #ፐ።፪/,#441 8 (/K*1/)e z]XELSE* 
RITH2(/KY1/)。。= ニ Je 5 

ま END デ 。? 
K。。=1 eyRITH と (/K/) 。。=1。5 | 
OUTPUT (61»€ (&///7// ,S TABLEAU DES RITH:zES ASSOCIES A LA 5ნ02#)##)?).» 
OUTPUT(61» ま ( ま の] (2B?1D) そ )\5RTTHZ2) εν | 
QUTPUT(61*# (ቻቻ (ይፁቆቋቆ”ኾዞ Iს DE RITH2#)#%)2), 
#FORzL ο zm1zSTEPz12#UNTILz21z00z 

BEGIN 
#IF#SEQ3(/L/)#NOTEQUAL#SEQ3(/L+1/)#THEN#RITH3(/L+1/)..ml#ELSEZ 
RITH3(/L+1/), 32.9 

ZENDZ ο 
ዘርዩመ198፡ 115 (/ዚ/) 。。 モ 1 ο» 
OUTPUT (619% (#///// 6 % (TABLEAU DES RITHMES ASSUCIES A LA SEQ3#)Z%#)#) a? 
OUTPUT (619 ន) ខ្ល?) «9 
OUTPUT (61s#(##(#tmm#FIN DE RITH32)##)#), ዕ 
MAL Tid een A NILUS 

ELABORATION DE LA PARTITION DES TROIS VOIX - 

„_–_=–_ჟ_„_„___–_ულლლელლძლძ'""“""“"'"""'"'"'''''''''''''""".“.". ო”... 


LCI..=0+V 

នន 

OUTPUT (61 o#(#30#) #,1C1I)os 

OUTPUT (6]** (K/»*(*ICIsPOINT DE REPAIRE UANS LE BAILLAIGE LE 2. 

) ee 

OUTPUT (61? ま ( ま /6 を ( ま VVVsL EXECUTANT FAIT SONNER UN TRIANGLE ま ) ま を ) ま ) ον 

OUTPUT (61 (ΑΛΦΑ ቡኩ Φ 49 ''/(,፲ እመ] me 86 43-30 80 46 0 de %% de % dé de 4 % 4. 30 % Gh % AB % 4 dE ቡቡ ሹቡር Vol 

K a p me W DE AE AE AE E AH AE DE AE LOI ዚ=-3=ቻ ) ##)#), 

us d etes das 1 2 3 4 5 ὁ TRIANGLE FORCExI 2 3 

ង TRIANGLE FORCE ェ 1 > 3 ራሩ 5 6 TRIANGLE ま ) まま) ま ) es 

Pd იყავ აივი I I I I I I I I I 
I I I I I 1 I 1 I#)#%#%)#) ი | 

ჰაა=(Cიი-“სიი=094 

55,=፡69 

PLUS. νο σα λέων 

Αι... „ფტL#13=4L#13»0IV#21093#1093,, 

FÜRCE2.»«SAL-*AL*UIVs6*6*].5 

Jes S 1ο) 

E. „sel, 9 

0451 (/E/) soesSEuwi(/J/) o9 

E,.z=E+ ον 

DANSI (ሪዬ/) 。。= ニ FORCE2。 9 

#IF#RITHI1(/J/)#€QUAL#1#THENZ 

OUTPUT (Sl o#(#/ á (# I I 

#IF#FORÇE2zEQUALz#1#2THENz2#ƏEGINA 

#IFÉASEUL (/J/) FEQUALALÉTHENSZ 


δ-- 
δ- 
፦ 
té 


ሃሃሃ #)##)ጆቓ) 5 6 


ዐህፐዞህፐ (61 §#(%#/§#(+« A I I I I I I ぞ ) ま ま ) ま ) 。6 
ま 1F メ SEGQ 1 (/J/ ) まし に は UAL ま のど ま THEN ェ テ 
OUTPUT (619# (#/ + # (# ន I I I I I I #)##)#).ი 
#IFASEU] (/ህ/) ይይ]ህ]ህሠልር#3#? ዘዷክ# 
OUTPUT (61% (%/1%(# ០២ I I 1 1 I 1 %)#%)%),° 
s&IF2SEQl (/ህ/) *EQUALZ* STHENs 
OUTPUT (919# (#ቐ/፥# (# 0 I 1 I I I I *)*x)*),) 
#IF#SEQI1(/J/)#EWMUALZS#THENz 
OUTPUT (61* * (ቐ/፥ጆ (# OM 1 13 1) I I 1 Ας, 
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237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 


e5] 
ese 


253 
254 
255 _ 
256 
257 
258 
259 
260 
26) 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
28) 
282 
283 
284 
2ც5 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
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VERSION 491 LEVEL 0004 


#IFzZSEQ1(0/J/)#C აყრს#6771!1C I» 


OUTpUT(61szZ(#/+ 2 (% 11. 1 
*ED£.5 
slFsFOHCE?CgLQUALz2zTHENzZ£ZbEGIÓNS 
OUTPUT(6l1sst(*/»£ (# I I 
*IFÉSEQI(/J/) FEGUALFLÉTHENF 
OUTPUT (6) «#(#/##(Xჯ I A 
Ἐξ #ፍኩርህ1 (/J/ ) ÉEUUALFCATHENS 
OUTPUT (Cls#(#/ s# (# I t 
ZIFZÆSEYG] (/ህ/) #ដ៤២#3=៩ ! HEZ 
OUTPUT (61 s#(#/ +# (# I OU 
#1፤5#5ርህ1 (/.)/) ቐኤቴህዝህልኒጆ#ቀሩፍጆ [ ዛዬ ዘ# 
OUTPUT (519# (ቐ/5#(# 1 ሀ 
#IC #5ხს1 (/ህ/) ጾ#ዴ]ህልፌ#>ጅ#ቐ THE Na 
OUTPUT (6) * (ቐቻ/*ዎቻ (# I OM 
#lF#Stul(/J/) ESUALZOXTHENz 
OUTPUT (Cl 9#(#/,# (# 1 II 
$E Dzes 
*IFÉFORCE2*EQUAL*3ZTHEN**BEGINX 
OUTPUT (61»e (#/s# (# I I 
ቓ]10#ፍርህ]1 (/“ህ/) *t£uuAL*1*THENe 
OUTPUT (61, z (2#/ x (# 1 I 
#I[F#sEQ1 (“ህ/) FEQUALF2ÉTHENF 
OUTPUT (61 o#(#/ 8 (# 1 I 
#16 #5LC0) (/ህ/) #ALUUALASJÉTHENS 
OUTPUT (619#(#/5#(% I I 
ま 了 F チ SEM1 (/J/) FEQUAL*E^* THEN* 
OUTPUT (61##(#/#8#(#። . ፲ 1 
#1F#sEGl (/.ህ/ ) ま E は UA し まつ ま THEN ェ + 
OUTPUT (619# (ቐ/95ፆ(# I I 
#ጌዞጾ5ርወ] (/ህ/) #ር ህክህል'ፌጆ#6ቾ | ዘር # 
OUTPUT (61** (6/9 (# 1 I 
#ნII0#ი/” | 

IF FORCE LSE QUAL xegTHENZxBEGINZ 
OUTPUT (61 o#(#/ +# (2 1 I 
#IC%#CCIV) (/J/) FE UUALÉLFTHENZ 
OUTPUT (61## (#/)5ፆ (x ፲ I 
#፲ኦዞ#ፍዬይህ1 (/ህ/) ጾኤህህልዚኒ #ራሩጆቓ THENGE 
OUTPUT (ዕ149# (2/92 (2 I I 
#IFÉASEUL (/“/) ま EJUAL そ 3 ま THEN ぞ 
OUTPUT (619# (2/»£* (# I I 
IFesEQl(/J/)*tugALz*s*xTHENx 
OUTPUT (61 oe (#/,# (x I I 
*IF*ÉSEQl] (VJ/ ) *ECuJALZ5* THEN? 
OUTPUT (6) o#(#/ sk (# I I 
#lFéstul(/J/)#EuvÁL#04THEns 
OUTPUT (6) ,#(#/,#(# I I 
#END%, 
ZIFZFORCESZEQUALSSZTNENZZBEGINZ 
OUTPUT (61:#(#/§#(#ჯ. — I I 
#]1ዩ5#።ር፣ሣ1 (/ህ/) ま E9UAL テ 1 ま 「HEN ょ 
OUTPUT (61 ο (*/»** I I 
#I” #5601 (/ህ/) ÉEUUALAC ÉATHENSZ 
OUTPUT (C16%#(#/:#X(# I I 
#IFASEUL(/J/)#EdUAL#3ATHENS 
OUTPUT (619% (F/ 98 (# I I 
#]5#5ዩህ1 (/ህ/) FEQUALASÉTHENSZ 
OUTPUT (bl es (#/.ዶ (# I I 


#16 #56M1 ( /J/ ) #CII#ტLჯ#57#IICII»ჯ 
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Om 


XXALGUL 
I I 
Ι 1 
I 1 
I I 
í I 
1 1 
I I 
I I 
I I 
1 I 
I I 
I I 

1 I 
I I 
I 1 
I I 
1 I 
I I 
I I 
1 I 
I I 
I I 
I I 
A I 
Ë I 
ህህ 1 
ሀ ፲ 


)29*)7).1 


*)ss)*).e 
Z)2%)%) 。$ 
ま ) そそ) ま ) ον 
#)##)#) ο 
#)##Z)%),°* 
#) ##)#) ) 


#)##)%#),* 


ም)##)ጆዎ),56 
#)##)ዎቓ]›ዩ 
#)#%#)#), ° 
#) #8) #) ,, 
#)##)#) 。6 
$)**)2).» 


*)2*)9*). 


#) ##)X#).ი 
#)##)%).9 
#)##)#) 。$ 
#)#%)%), ° 
F)##)#)09 
#)#X#)#)აი 


#) ##)#)ა§ 


#) ΕΕ} αὶ) ο 
$)**)*).» 
#)##)#),0 
) まま) ま ) κ 


#)##)%#), 0 


- 39 - 


VERSION „el LEVEL ህ005 XXAL:UL 
QOQUTPiuT(6l1ls z (#/ sz (2 I I l 1 OM 1 
#ჯIL ჯ5ნV1 (/ህ/) FE ს)ა rer ncs - 
OUTPUT (614# (#/ sé (# I I I 1 li 1 
#LI.I)#ი? | 
ZIFZFURCESZEQUALZSOZTMENZEZUEGINZ 
OUTPUT (519ፉ (#/ + (2 1 I 1 I I I 
#I” #5LV1 (/ህ/) ნს”, #1 THE 
0UTPUT (615ፉ (チノ 9 (+ I I i I i m 
XLI #ፍ5ርህ1 (/ፌቱ/) εἰ სი C#C=#% I ik ig 
UUTPUT (5ሙ14# (#/ o£ (# I I 1 I 1 L 
#10 SEQ (/J/) #C III” 3x! ntis 
OUTPUT (61»*(*/s*(&* I I 1 1 ር ου 
#1 0 #ፍኡህ1 (/.1/) #ნ Αι  #9%#IIIC.I4ჯ 
QUTPUT (lo #1#/ (€ (2 1 I I I L Ü 
#lFæSt ul (/.1/) FLUVUALASÉTHENX 
OUTPUT (6192 (#/s% (# 1 I i I I OM 
#፲ ዮ#5ርህ1 (/ህ/ሥ) #ÉEAUALÉOÉTHENZ 
OUTPUT (C1:#(#/§#(# I I 1 I 1 11 
FE D#e.. 


*lr£j*NOTEUUAL*2iI*THEN*XGOTO*PLUS.» 
OUTPUT (Gl s# (ፉ#”ፅፉ (£#) ዎም) κ} 559 
PTEE, 

ሦ[.ህ51591ር19951(:10ቀ16ፃ 

K。。 ニ K+1。5 

AL 。。=AL を 1 うこ AL せま よう ょ DIV ま 1093*1 う 93 。 , 
FORCEZ 。。 ニ AL し こ A し し TV ょ CO6 ゃ 1。$ 
Est 99. Ἢ 

DANS? (/E/) , #53ኩህ- (/K/) os 
Boost t* es 

DANS2(/E/) 。。=F OkKCE,. κα» 
slFZRITHC(/K/)2zcuUALESlzTHENS 
OUTPUT (91s (* /5#(ጆ# 

I 1 I ννγᾳ) ἘΚ) ξ) e ó 
sIF*FORCE2*CQUAL*1* THEN**BrEGIN* 
OUTPUT(oles(*/ 5#ሥ(# 

I I i #)##)#)o 
ま 【F チ SEQZ2(/K/ ) #ዬህህልዚኒቓ1ጆ#ዎ፲ፐ!''ዷአሪ 
OUTPUT (ው19# (#/ οί 

I I 1 #)Zz#)%) <, 
#IF#Stuze (/ዚ/) ÉEGUALÉCÉTHENS 
OUTPUT(Ol ls #(F/ οκ 

I I 1 #)#Z)%) ο 
ょ IF ょ SEQZ (/K/)#btuuñLz23zT'ENz 
ሀህፐዞህፐ (O01 ο οκ 

I I 1 #)##)#) ο 
#IC#ლნ 2 (/K/)#ktkuuaL #4#IIIL II# 
OUTPUT (61 o#1#/ 5# (2 

I I 1 #)%##)*f) ον 
#1ნჯლCს, (/ከ/) ÉLUUALÉTÉATHENZ 
OUTPUT (91:#(#/ νά 

I 1 1 #)##)#]ሽዩ“ፅ 
*Ir*stu2 (/K/)#r ህህልዚኞወውኞችፐ ዘኒአፆ 
0UTPUT (619## (#/ να 

1 1 #)Zz)Z) es 
*២|២៩ ον | 
#+IFr4FURCER FEU ac z2zTrnENzzuc G Να 
OUTPUT (El F (ቾ/ ## ($ 

I I À 3) αχ} δ) ss 
#1 #5ხთსრ (/h/) #ს „სრ #1#I.'CLMXჯ 
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#) ##X) #) 。* 


#)##)ጆ#],ቄ 


#)##)#),ፃፅ 
ἜΧΕΤΕ} εν 
#) XX) #) ot 
+) まま) る) κ» 


#) ##)#)ა9 


Z)#%)#Z), + 


)2z)*9).9$* 


vU 


UM 


— 


-37 መ 
VERSION 4.41 LEVEL 0004 XAALGUL 


OUTPUT (61, (#/ οί | | i A 
I I I #)##)ዎ)565 

#፲ዩዞ#ፍርህረ(/ዚ/)ጆ#ቓ፻ጀህህልዚቐረጆቕፐዘክዘፒከ። | 

OUTPUT (61 o#(#/ πα | l 
I 1 4 #)##)#) ο ϱ 

zIFe£SEQ2(/R/) £EuUALsJz THEN 

OUTPUT (619#(#/ s#(% | C យម 
I 1 I #)#%#)%)," 

#IFASEUC (/K/ ) ÉEQUALASATHEINZ 

QUTPUT (061:#(#/ ναί 1 8 
I I I #) Ἐπ} Κ ο 

*IF*SEu2 (/k/ ) #EQUALÉSÉTHENS 

OUTPUT 619%#(#/ κ 1 on 
I I I #)##)%) e> 

2IFASEQL (/K/) ጾዩ ህህዶልዚ#“#፲1!!ጄክ# 


OUTPUT(Olo#(#/ 5 と (そま 1 II 
I I I #)##)#ቹ#)*ፅ | | 

*END*,* 

*IF*FORCE2SEQUALX3£THENZ£BEGINs 

OUTPUT (61»*(*/ νε | | 1 I 


I I 1 #)##)#) o) 

#IF#SEu2 (/K/)#EQUAL#1#THENZ 

OUTPUT (61? ま ( デ / εί . - I I 
I I + *)»*)*) «+ | 

#lF#stuð(/k/) Eg uA #።#ፐ ክጄ ክ# የድ P 

OUTPUT(Slo#(#/ »#(% | | |» ^l I 
I i I #)#Z#)%) ο 

*IFÉSEu2 (/k/) #EQUALÉ3ÉTHENÉ 

OUTPUT (6) 5#ፉ (ቻ#/ 5#(# | I I 

ህ 1 1 1 #)##)#*) os 

#IFz#SEQzZ (/K/ ) EuUuALE** TOENS | | 

OUTPUT (91],»(*/ ο: i I 
I I I #)##)#) o> | 

#IFÉSEU ES (/K/) FEQUALÉOÉTHENS 

OUTPUT (Gl 6 と ( デ / §%(# I I 

M I I ჯ #) Επ) κ) ο} 

#IF#SEQ2 (/K/ )wWEWUALz#62THENz 


OUTPUT (618# (#/ τς | I I 
I I I 1 #)##)%)ი§ 

まそ END ょ 。$ 

ま 1F ま FORCE2 ょ EQUAL ま 4 ょ THEN そ まそ BEGIN ま 

OUTPUT (519# (#/ »*(* 1 1 


I I I #) ##)#)ი§ 

RIFÉSEUL (/R/) ÉEUUALÉ LÉTHENS 

OUTPUT(61»*(£/ νε ፤ I 
À I 1 #Z)##)%) ο 

#IF#SEQ2 (/K/)#CQUALz#C2ZTIENZ 

OUTPUT (6) 5 ょ (ば / 5# (# . 1 I 

I I そ ) デ と) そ ) 。$ 

#lF#stuð (/K/ ) &EUUALZJZTHEINS 

0UTPUT (5›1## (#/ % (2 1 1 
OÙ 1 1 #)##)#) +,» 

#IF#sEËEQ2 (/K/) FEQUALÉSÉTHENF 

OUTPUT (6) ## (ቐ#/ «%(#ჯ | ፤ ፲ 
ዐ ፤ 4 #)##)#) o x 

#1” #5ხ92(/ი/)#Cს)სტL#5#IIICMჯ 

VUTPUT (6192 (ቻ/ 5ፃኞ (# 1 I 
OM 1 L #)##)ZF) e> 

#IFASEQC(/K/) *&EuUAL 9 #ፐ!!ዬ Nz 
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ー 34 = 
VERSION sol LEVEL 0004 ーー XXALGOL 
OUTPUT (6lo# (#/ # (# 

II 1 1 #)##)#) ο 
END 9 
ZIFZFORCE2ZZEQUALZOZTNENZEÆBEGINZ 
OUTPUT (61:#(#/ ა#(# 

1 I I #)##)#) 5 9 
#IFASEUE (/K/) FÉEQUALÉLÉTHENS 
OUTPUT (61 5 テ ( ぼ / se (Á 

I À I +) »»)*) e 
ZIFZSEGE (/K/) #ዬህህዶኒዚጆ#<#?!!፣ከክ። 
QUTPUT(S1+2#(#/ ፃቾ (# 

፲ É I $)*£)9*)e595 
*lIFÉsEu2 (/K/)*EQUALT3* THEN 
OUTPUT (Gl o#(#/ 9#(# 

I OU 4 #)##)#) ο 
RIFXSEGZ (/K/) AEUUALESATIENX 
OUTPUT (61»*(*/ »*(z 

I ს 1 #)%Z)%) es 
*IrFÉSEq2 (/K/ 7) FEQUALÉSÉTHENS 
OUTPUT (61»*(*/ »*(x 

I OM I #)#z)#) o> 
#IF#SEQ2(/K/)#ËEGUAL292T1EHz 
OUTPUT (91§#(#/ νο 

| I 11 I #)##ჯ#)%)ი§ 
#CM0%ა! | 
#IF#FORCE2z2EQUALzO2#THENZ#zZBEGINZ 
UUTPUT (61»* ($/ 5#(# 

I I I #)##)ም])5ቆ5 
#lFéstu2(/K/) ÞEUUALFIFTHENA 
OUTPUT (Gl o#(#/ §#(Xჯ 

I I A #)##)#) og 
#IFASEUZ(/K/) #EUUALACATI'ENZX 
OUTPUT (519#(ቐ/ κ 

1 1 Ë F)##)#)09 
RIFRSEGZ (/K/) FEQUALAIÉTHENS 
OUTPUT (61»s*(*/ οκ 

I 1 QU #)##)#) ο 
ま 1F ま SEM2 (/ኮ/) ま E ば UA し を 4 ま THEN ょ 
OUTPUT (61** (*/ 5* (% 

I I O #) ##)#)ი§ 
*IFsSEQ? (/K/) #ዬ ሠሀዶሂ #95#IIIნ Nz 
OUTPUT (*19# (#/ — 

1 Om ἘΚ) κ) e) 

* 1F*sEG2 სია ま EQUAL ま 6 THEN? 
OUTPUT (6) o#(#/ §#(# 

I I II を そ ) を そま ば ) ぞ ) ο 
#ኔ[ክ0#ቹ5ፃ 
#IF#K#NOTEQUAL#¿1Z#THENZ##GOTO#PLUS], + 
OUTPUT (0616:#(#%9§#(##ჯ)##)Xჯ)., 
54«።4=(06ቆፃ | 
ჩLსს522291C1ი9-=1C11?1.39 
Leszlbtiles 
ML. «5Αἱ 5134. «1 901ν 1099391093. 
FoRCE2,,.sAL-ALzUIVagO9o*t6s1,, 
ErozEtles 
DANS3(/E/)  eSSEq3(/L/) os 
Eos zE+1, 9 
DANSI (/E/) 。。=FORCEZ 。 56 
#IF#RITH3(/L/)#ËQUAL#1z2THEN# 
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-- 34 = 
VERSION 4。1 LEVEL 0004 AKÁLGUL 
OUTPUT(6lsz(* /፥#(# 
| 1 I I I I 1 VVVæ)##) #) ο» 
#IFÉFORCEZFEGUALFJÉTNENFFBEGINF 
OUTPUT(61»*(*/ o#(# 
| I I I I l LI#)##)#).49 
[IF ょ SEQ3(/L/ ) &uuALS 1e THEN 
OUTPUT (Cl 6 を ( チ / 5# (2 
A 1 I I I I£)9**)2).» 
*IFZ£SEQ3(/L/)*E9UALEez THEN» 
OUTPUT (618# (ቐ#/ 5#(# 
I : | Ë I I I I 1#)##)#),0 
#IF4SEUS (/L/) HEUUALEASÉTHENZ 
OUTPUT (91## (ቐ/ 5#ፆ (# | 
OU I 1 I I τ ΓΣ ΠΡ 
そ TF ま SEM3(/L/) ま EEMUAL チ 4 ま THEN デ 
OUTPUT (61## (#/ §#(#ჯ 
0 I 1 I I I#)##)z) es 
#IF#SEQ3(0/L/)#EËEqUAL29#THENz | 
OUTPUT (6lo#(#/ s#(% 
OM 1 I I I 1#)##)#)00 
ÉIFÉSEUS(/L/) FEUUALÉOÉTHENF 
OUTPUT (519# (ቾ/ 4 | 
1፲ I I I I 1 まそ) そま) ま )。s 
xtN02.) | | | | f 
#IFz#FORCE22EQUALz2zTHENzZ#BEGINš 
 ዐህፐዞሀፐ(514#(#/ εκ | | | 
| I I រ |! 1 I?) ##)#) ο 
ま を IF ま SEu3 (/L/) ま EMUAL そ 1 ま THEN テ | 
OUTPUT (60149# (#/ sé (# ー | 
| I A I I I I#)##)z) o 
*Ir*sEQ3(/L/) FÉEqUAL* 2* THEN* 
OUTPUT(61»*(*/ οί | 
| I E I I I ]Jz)9*4)2).95 
#lF#SEU3 (/L/) *EMUAL 3e THEN 
OUTPUT (6127 (#/ e*(z 
u _ I OU Í I I I*)*2*)3).)» 
sIFZSEQ3(/L/) £EQUALZ** THEN 
OUTPUT (614ዖ# (#/ s»£(x 
I O I I I 1#)##)#)00 
*IFÉSEQ3(/L/) ÞEGUALFSFTHENF 
OUTPUT (934# (#/ (4 
f I OM I 1 I 1#)#Z)#) e? 
zIF2SEQ3(-(/L/)#EQUAL#O2#THENz 
OUTPUT (6192 (#/ , (s 


I II I I I 1#)#%)#) 。 
#CI)0#%ი49 ' 


#IF#FORCE22EQUALz3zTHENzz8EGINZ 
OUTPUT (612 (ጾ/ τς 
I 1 I 1#)##)#ჯ#)»იი 
ዎ፲፣ሠቻፍርዩህሀጋ (/ር/ን ፆሬ ቁህልዚዎ ቢቻ THEN? 
OUTPUT (61## (ቐ/ F(x 


| I I ለ I I] Ix*)ew 
#1፤#ፍ5595 (/L/) ጾዬህህልኒፌ#ሩይ? ዘዬ ክ# 


OUTPUT(Š1, z (#/ να 

I I ნ I I I#)##)#) 。$ 
#IF#SEQ3 (/L/)#EWUAL#3#THENz 
OUTPUT (615ፆ (#/ 5#(# 


I I QU I I 1#)##)%) ον 
*lFZSEQ3(/L/) ま EMUAL ば きま THEN そ 
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ALGOL-60 VERSION 491 LEVEL 00094 XXALGOL 
532 OUTPUT (6192(2/ κ 
533 I 1 U 1 1 1#)#z)z#) ον 
534 *IF*SEu3(/L/) *&uuAL*»5*THENx 
535 OUTPUT (6 ま 15 を ( チ / να 
っ 36 I 1 OM I 1 」 ま ) ま ま ) ま ) es 
537 #16 #5603(/L/)#C qUuALzO2#THENz 
538 ህህፐዞህፐ (919# (#/ ,#(» 
539 I I II I 1 1#)#%#)zZ), > 
2490 #C NO.» 
541 *&lFzFÜRCE2«EQUALEA4AxTHENEZBEGOIN 
542 OUTPUT (615ጾ (#/ 5#(# 
543 I i I I I lf)##)#)e.e 
544 *lFsSEQu3(/L/) £EuUALZI1*THENs 
545 OUTPUT (61## (#/ yz (2 
546 I I I ñ I 1*)2*)2),), 
547 #Iნ#5CVI)3(/CL/)#Cს)სჩ.#C#1IMICM»ჯ 
548 ხს10ს1(951:1#(#/ (gn 
549 l I 1 E I 1 ま ) ま ま ) ま ) 。1 
550 #IFz#SEËEQ3 (/L/ ) そ EMUAL ま うま THEN ェ > 
551 OUTPUT (6149# (#/ οκ 
552 I I I ህህ 1 1#)#Z)z) 46 


553 #IFÉASEUZ(/L/) FEGUALFGFTHENF 
554 ዐሀፐዞሀፐ (log (#/ οκ 


555 ーー 00111 I 0 1  Ix)##)#)., 
556 *IFzSEQ3(/L/) AEQUALESETHENS 


557 OUTPUT (9149# (ቾ/ νε 


558 I 1 1 OM I 1*)**)3),; 
559 *IF*ZSLEQ3(/L/) ጾይይህህልዚጆክ።።#? ዘር ከአፉ 

560  ዐህፐዞዩህፐ (614#(ቐ/ να 

561 I 1 I II I I#)##)#). 6 
562 *ENDÉ,* | z | 

563 ZIFZFORCESZEQUALSSZTHENZEBEGINZ 

56% OUTPUT (619# (#/ νε | | 

565 I I 1 I I I#)##)#) a 
566 #1፤#5ፍ5ህ3(/ፌ/) #ዬዴህህልኒጆ# 1#1 ዛር. ክፉ 

567 OUTPUT (O1, e (/ 4#(# 

568 I I I I A l?#)##)#) +, 
569 .  #IFÉSEUZ (/L/) FEQUALÉCÉTHENF 

570 0UTPUT (61 5 そま ( チ / κά 

571 | I 1 I I 3 I#)##)#), 0 
572 #IFASE NZ (/L/) ま EJUAL テ うま 「HEN ぇ 

573 OUTPUT(61**(*/ o#(# 

っ 74 I I I I ου I#)##)#), 
575 ま 』F ま SEu3(/ し / ) #C ህህልኒ #4 #THENA 

576 OUTPUT (519# (#/ ,»(# 

577 | I I I I 0 1»)*#)#),, 
578 #IFÉASEQUS(/L/) ጾ#ዬ ህህልዚ #።>#ፐ ዘር ክፉ 

579 OUTPUT (*145# (#/ νι 

580 ፤ ፤ I I OM [Z#)##)#), 
581 #IF#SEQ3(/LC/)#EWMUALzOz#TIHE!Nz 

582 OUTPUT (61** (*/ ,(# 

583 I I I I II IZ#)##)#). 
584 #ËND2, 5 | 

585 #IFz#FORCE2zEQUALzSzTHENzzBEGINzZ 

586 0ს10სLI(901:#(#/ ა#(# | 

587 I I I I I I#)##)#) 。6 


588 *IFÉSEu3(/L/ ) FEQUALÉLÉTHENS 
589 OUTPUT (619# (#/ „#(# 
590 1 4 1 1 I Az)##)#), ° 
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こる 7/ー 


VERSION იი) LEVEL 0004 SKÅL Sek 


£ZIF£SEQ3(/L/) チ EMUAL ま と ま THEN ょ + 
ዐህፐዞህፐ (61#9# (#/ 6#(# m 
| I I I I I :%)##)Xჩჯ#X) 29 
#IFASEUS (/L/) #AEGQUALASÉTHENX 
ሀሀፐዞህፐ (9149# (#/ οί 
| ፲ 1 4 1 1 VU%)#t) gf) <? 
ま IF テ SEQ3 (/ዚ/) &EaUALz* #THEna 
OUTPUT (lo? (#/ εκ 
I I I I I U *)*vx$)2).,» 
sIF£SEQ3(/L/) &&aUAL zo2THENz 
OUTPUT (6 1 ? テ ( チ / οί 
I I I I I Ομ) Ἐξ} κ)» 
#I1F#SEQ3(-/L/)#EQqUAL*YO#THENš | 
OUTPUT (93.,#(#/ νε 
1 I I I I 11#)##)#)ი9 
*E' Dzes 
IFÉL*NOTEQUAL*21*THENÉ*GOTOU*PLUS2*»* 
OUTPUT (6l, z(X*» E (EX) ΞΕ} κ) ο 
OUTPUT (Sl 2 (e/o t (# zFoRCE*)s)).) 
OUTPUT (619#(#/ §# (#=0=0==0==0==0==0==1#)ჯ##)#)ატ? 
OUTPUT (619# (ቐ/5# (#”0””0”” 0“ 0መ=0መመ0መ”2#)##)#)9ፃ 
OUTPUT (612 (#/## (#=0መመ=0መመ= 0መመ 0መመ 0መመ= 0መመኃ3#)#ም) κ) ο 
OUTPUT (619#(#//5ቐ (FT fo 0መመ00መመ0መመ4፣ሯ) #ዎ)፻ቻ)565 
OUTPUT (61 ? ま (チチ /6 そ (まこ 0 ここ 0 ここ 0= ご 0 ここ 0 ご こい ー こ ら ょ と) そそ ) テ ) ο» 
QUTpUT(elss(*/»2 ($-0770770-70--0-7-07762z)z£)).» 
OUTPUT (61#9# (#ዎ/ ፃፍ (# FACE ልህ PUBLICZ)ZZ)Z) ον 
OUTPUT (61 ot (2/98 (#መ 1 ምመፎመመ 3መመዓዳመመጋቃኃመመፀህ መህ TES SONOREËESzZ)#z)#) e 
MI გაგა. C posisi BEDES DE MANTRA ま を ) ま ま ) ま ) ον 
OUTPUT (617% (#* ነዎ ἐλ κε} 4} εν 
OUTPUT (61 。 ま ( ま /9 ま ( ま TABLEAU DANS1DU DANSEUR1 ASSOCIEE ል V01X1 ま ) ##)#) 69 
OUTPUT (91»& (ቾ#/ዩ “። (881ሠሀ)#)#5ሠፆከአ511)65 
OUTPUT (6) ,#(##(#====წ IM DE DANS]#)##)#)00 
OUTPUT (6197 (*/s* (TABLEAU DANS2DU DANSEUR2 ASSOCIEE A VOIx2#)##)#) 。6 
OUTPUT (61 #(#/§4C=(28910)#)#ჯ#90#ტM52<),.:; 
OUTPUT (901:#(##(#==--წIMსM DE DANSER) κκ) る) 。 
OUTPUT (6] s & (#/ s#( ÆTABLEAU DANS3DU DANSEUR3 ASSOCIEE ል VOIX3zZ)#2)#) os 
OUTPUT (61 o#(#/s42(2Br10) #) ἘνΌΑΝ53) ον 
OUTPUT (6 1? ま ( チ ま (テー ニー マーFTN DE DANS3 チ ) デ そ ) ま ) ss 
OUTPUT (61 s# (#8 (CONFIGURATIONS DES DEPLACEMENTS SCENIQUE DANSEUR ] 44 4 ip + dta % + 46 48 + 
#)##)ዎ)5ፃ 
z#FoRzËE, e es1z#STEP#2#UNTILz#%*cezD02 
xBEGIN£x 
G。。=DANS 1 (/E/) ο 
ር,59=ር+15695 
ዘዛዘፅፅ»ፅ=ሀልከ53 (/E/) os 
ヒ 。。= ニ ヒデ! οφ 
ESPACE (/H6G/ ) ο 。 ミ の 。 9 
OUTPUT (61, (2/59(/,10, 20, 109 28,10, 2B» 1U。2B6? 10, 20, 1U) 8$) & ,ESPACE) 。 + 
OUTPUT (Olof (#ጾጆ (ANCIENNES POSITIONS SUIVIT UE La NOUVELLE POSITION 
DANS L ESPACE SCENIQUEZ#)##)#)00 
OUTPUT (6193 (## (#2=SITUATION DE LA NOUVELLE POSITION#)##)%Z),° 
OUTPUT (91 gg (##(##*UNITE SONUREz #)##)#) > 
OUTPUT (61»* (Ds) $yH) os 
QUTPUT (61»£ (## (Se *«FURCEZ z)22)2).» 
OUTPUT (614# (#]ሀህ#) #,6) +, 
ESPACE (/H*G/Z) 6 51.9? 
#ËENDZ ο 
#FORzG, 21#STEP#1#UNTILZ#62#002ZFOR#H, ez1#STEP#1#UNTIL#6#DO# 
Ε5ΡΑΟΕ(/61Η/} οοΞ0 59 
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VERSION 49) | LEVEL 0004 ΧΧΑΙ ó OL 


OUTPUT (6ls#(#8,#( £CUNFIGURATIONS DES DEPLACEMENTS SCENIQUE DANSEUH2 tat d dd 
$)2*)*).49* 
#FOR#E se osJáSTEPSCÆUNTIL #4 2410 

#96 0 វ សន 

GoesDAÁNsSZz(/E/) oo 

ヒヒ 。s ニ ヒ +」。5 

He * ま DANS の (/ ヒ 上 /) ο 

Ε ιο τε, 

ESPACE (/H。G/ ) ειδε 
OUTPUT (616# (W/v01/.1U 25910) 28.19 s eU 810 28»1Us 2856,10) £) 24,ESPACE),, 
OUTPUT (61 92 (22 (ANCIENNES PUSITIONS SUIVIT DE La NOUVELLE POSITIUN 
DANS L ESPACE SCENIQUE#)#%#)%Z),,> 

OUTPUT (ol sø (#ቓ (#ፎኢ፲ ፐህልፐ ፤ህክ UE LA NOUVELLE ΡΟ5ΙΤΙΟΝ4) 88} 8) οκ 

OUTPUT (6 1 5? そ (まそ (ませ UNITE SUNOREz z)zz)£).» 
OUTPUT (09) ,»(*.0*)#,1) +, 
OUTPUT (6192 (## (£*99FOHRCEZ z)#z)#)., > 
OUTPUT (61 o#(#10#) ένο)» 

ESPACE (/ዘ46/) 。 。 ミ =] ο» 

END*。6 

*FoRZGe«ez)sSTEPEIsuNTIL4Z6SULUSSFORXHess1zSTEPX])ZUNTILZ52DU£ 
ESPACE (#/6,ក/) 455355 
OUTPUT (e1** (ይቅ #ቻ (ቓርዐክዮ IGURATIONS DES DEPLACEMENTS SCENIQUE DANSE UR 3 5484445444. 
#)##)%#) ο 
$FoRzE..S]2STEPxexuUNTILZ^2zUOs 

BEGIN 

G。。=DANS3 (/ ヒ /) a9 

Ε 。。=E ィ 」。5 f 

H。e=DANS3(/ ヒ /) er 

E,osE=,, 

ESPACE (79, G/) ο οΞῷ 
OUTPUT (6193 ($/56 1/5 105209 10128810 629) 109289 109889 JD) ) & ESPACE) ον 
OUTPUT (615 ま (まま ( ま ANCIENNES POSITIONS SUIVIT DE LA NOUVELLE POSITION 
DANS L ESPACE SCENIQUEF)##)#) ,0 

OUTPUT (6ls#(##(#23SITUATION DE LA NOUVELLE ÞOSITJON#) ##)#) 。。 

OUTPUT (615 そ (まそ (ませ 9UNITE SONOREs #)##)#) κα 
0UTPUT (615 そ (まえ 1D ま ) EH) o 
OUTPUT (61 ## (EX (###ዛ የ ህርሂፒ= 2)##)#)00 
OUTPUT (ጮ618ፃ# (*10*)*»sGJ) ა! 

ESPACE (/HyG/) ο οΞὶ 

ἘΕΙΝΟὲ ο ῃ 
ZENDZ 9 
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